∃~∞;¬2A⊂(U+U*uαforget-macromemos|QUOTE↓HERALD↓↓⊂↓⊂↓␈␈x↓DEFPROP↓HERALD MACROMACROα↓αβ⊂α␈␈xSUBR¬!#,8↓MACROFETCHβα∧5B3 α`↓LENGTH∧α∧1.↓+¬↓@"↓ α`∧α∧1n↓+λ ,λ,8β,84,8g␈␈",↓Q@ERRORβ<¬Zβ`[∧λZελZ	`Zλ ,8↓,8αλεH
∃4H
[α +∞ "¬,8↓INFILE αεFILEP_JFεβαε4B⊃ αε↓TRUENAMEβαπ-,↓,84B→ AA#Q " $⊗-.
 αg␈y↓EXPLODENβαπ↓READLISTβαλβ↓@0-,_+[αλ(Bπ␈{ ∞λ¬an↓ λε +→7α` αg␈␈,8 αg␈~-,_ $↓-,5∀
$β→↓MSGFILESλ⊂␈␈zα gJ+⊃R-,_PRINC $	-,→↓Hε(,8 αg␈␈-,_ $↓-,→λ⊂␈␈zα gJ+⊃R-,2↓TP2_ $	-,→ 	↓	⊂↓λ⊂↓⊂␈␈zα F
k∨u-,_	↓	⊂↓λ⊂↓␈␈zα =L
?kβ
%β-,→,X↓-,→↓;Loading 	↓
⊂↓λ⊂↓␈␈zα Cp+Hπ-,→RAU*(↓TERPRI
λ⊂↓␈␈zα n{←ef-,→↓STATUS↓NOFEATURE↓NOLDMSG⊂↓␈␈zα u"NF8-,0~HεR→-,_COND $-,→↓VERSION
⊂␈␈zα mGZTr_dβ*α`-,_ ∧g␈~-,→ $α-,→β
$β-,_,X↓-,→PROG2 $
-,→β⊂↓#β/_απ␈␈ &↓ $λ α`↓MACROMEMOβε∞/_π␈␈¬∩u.W,xβWrong number args to a macro call∞(β⊂↓MACAID60
⊂↓
λ⊂↓	↓
⊂↓λ⊂↓	↓∂⊂↓λ⊂↓	↓	⊂↓λ⊂↓	↓∂⊂↓λ⊂↓	↓	⊂↓λ⊂↓⊂β⊂↓α∂∂
⊂α⊂↓␈␈x↓DEFSIMPLEMAC↓⊂⊂↓⊂↓␈␈xWbβαDEFSIMPLEMAC MACROα⊂⊂β⊂α␈␈x,8βα∧5B↓≤ α`∧α∧0.↓+;λ∧0 ,;,8β,8↓≥,8g␈␈",↓β<¬Zβ`[∧λZελ0[λ_Z
_,8↓,8α,8α(Hπ␈{6  ¬+D@↓[	g␈␈4HC(Hπ␈{ ∞ ¬an⊂+DZ	g␈␈4HJλ∧ε ,J,8β,8↓≥*∧α αg␈~-,_ $(-,0`R→,8",↓β<¬[βg␈␈,87Bg␈~T "⊃~H⊂λ(Bπ␈{Zαλ¬LIST0B⊃+O[βg␈~+O αg␈~↓T@0,8 αg␈␈-,_↓MACROEXPAND $∩-,→-,0↓T@0_ ∧g␈␈-,→SETQ $∩-,→,8~Hε αg␈␈-,_↓no-funp| $∪-,→,8Z¬g␈~λ@04DY7α↓≡[βg␈~-,_,X↓-,→,8~Hε( αg␈~-,_CAR $∪-,→↓
⊂↓⊂␈␈zα o≤≤s>-,5⊂β_EQ $∀-,→,8 αg␈~-,_R↓@2CADR $∀-,→,8 αg␈~-,_ $↓βj -,→,8 αg␈}-,_CADDR $∃-,0_dβ→-,_,X↓-,→ $⊃-,→↓T@0,8 αg␈}-,_CDDDR $∃-,→-,0↓@ε(_,X↓-,→,X↓-,→↓
⊂↓␈␈zα ∂nmf}-,5⊂ε→LIST* $⊗-,→-,_,X↓-,0@2→,8 αg␈~-,_ $∪-,→↓∩⊂↓⊂␈␈zα /JMDXβ⊂β-,_ $∀-,→,8 αg␈~-,_ _ε  $↓-,→,8 αg␈}-,_ $∀-,0_dβ→-,_,X↓-,→ $⊃-,→βP2-,_ ∧g␈}-,→↓
⊂↓␈␈zα ∂nmf}-,→ $⊃β↓@ε-,→-,_,X↓-,→*αg␈~-,2↓TP2_ $↓-,→G⊗⊂␈␈zα 9∧f-,_ $⊃β↓JεR-,→-,_⊃⊗⊂↓␈␈zα L↔~u-,→↓LAMBDA↓↔⊂↓␈␈zα ␈
M%bβ⊂0-,→ $⊃-,→*αg␈~-,_ ∧g␈~β⊂εR-,→ $⊃-,→-,_↓GENSYM⊗↔⊂⊂↓⊂␈␈zα ↑$←5≥β)`0-,→LET $_-,→-,_-,0↓@ε_ ∧g␈~-,→,X↓-,→,X↓-,2↓@`β→ $-,→-,_,X↓-,→_j  ∧g␈~-,→ ∧g␈~-,→↓DEFMACRO $_-,0→ββ→/_απ␈␈ &⊂ $λ α`βε∞/_π␈␈α)∃*-,x∞βBad arglist for DEFSIMPLEMAC→CONSPROGNBODY→↓~⊂↓~⊂↓␈␈x⊂d↓↑Bαλβ⊂4W+@1↓↓constant-p|↓⎇⊂↓⊂↓␈␈xαconstant-p| MACROα⎇⎇β⊂α␈␈x,8βα∧5B↓Q α`∧α∧Dα_1N↓+↓% ,↓%,8β,8↓R,8g␈␈",↓β<¬Zβ``1[∧λ "⊂,8↓βα∩ B`βα∪4B↓5 α`-,5⊂β_TYPEP $≤-,→,8 αg␈␈-,_ ~JεR $∪-,→↓FUNCTION↓↓≤⊂↓⊂↓⊂␈␈zα Eα	<
-,_MEMQ $≥β↓Hε(-,→-,_ $⊃-,→⊃⊃⊂↓⊂␈␈zα Ow→-,5∀5_↓SYMBOL≥⊂↓␈␈zα αmL0S-,→,X↓-,→CASEQ _ A $≡-,→+↓N[¬`0D
+↓?Zβ`Zαλ→`[αλ-,_ $⎇-,→Z¬`Z∧⊂Z∧⊂βdβ-,_Z¬`[∧⊂-,→ $
-,→
∧ε +↓N0D∩+↓EZβ`[αλ-,_ $⎇-,0_dβ→-,_ ∧`-,→ $
-,→λ`β+↓N ,β≤↔,8-,_*α`-,_ _2 $⎇-,→-,_,X↓-,→ $↔β`β-,→,8 αg␈␈-,_,X↓-,→β⊂00/_π␈␈ &⎇ $λ α`βε∞/_π␈␈,x%h∀J_∞β8β⊂↓≡↓carcdrp|,8↓CARCDR $∨GETβ∧∨5B↓q⊂BF
7D≡+↓q α`α+INTERNAL-CARCDRPβα ,<λ ∞p5.↓Y "λ∧4@+↓p0.⊂+↓Z7α↓rD " (Nπ␈}A.∨,80⊂λπ␈␈,8,<β ∞p0.↓+↓` αg␈␈+↓eA.P`7@β7α↓r "  ∧g␈␈-,_ ∞p(Nπ␈␈ Bg␈␈@εR Np+↓],Xα/_π␈␈/≤π␈␈R!⊂␈␈zα ;dfQi`Q↓*NCONCβ∧!C $"-,→,8α↓IMPLODEβα"β ∞pA.∨,8-,	 $λ,X-,_→
_,X↓-,→ &∨ $λ α`↓PUTPROPβε#/≤0_∀D]π␈␈/_π␈␈,xA##βhβ⊂↓R↓FLATTEN-SYMS⊂λ,8,8↓(Bπ␈{7 λ¬+αα6@g␈␈+↓x "⊂β∧α0-,ε+αε ∞g␈␈4N↓{(Nπ␈{ ∞8¬an⊂λ@⊂β+α↓4D↓␈[
⊂Z∧⊂2Jg␈␈+↓{ α`-,ελ⊂β+αε ∧` αg␈␈-,→+αε "⊂-,ελε_+αε[βg␈␈,8Zβg␈␈β∧$ $λ,Xβ∧$/_↓0,ε
π␈␈,x∧@β_↓s,8(Bπ␈{7 λ¬+α
 "⊃
∀ε⊂λ+α↓DECLARE↓≤$⊂↓␈␈zα Ejy⊗[β`β∧≥5Bα,[β`4Bα⊂(Bπ␈{β(⊂_ ∞λ¬`n⊂+α⊂ "+α,[β`βα≡4Bα∪!$λZβ`[αλβα∪+α,[¬`CXR0D%+α→Zβ`↓Dβ
[αλβα∪4Bα→Zβ`Zαλ[αλβα∪+α,+U*U*U-*/\1+1-+$-$*$U)"/$1+$1-$%&&''(())**++⊂ε␈␈zαPH4x4Jα,[λ(Z
(0H⊂+α~(⊂αZβ`,86@`+α∨ "⊃+α+[β`7@ "⊃_λ∀
(Bπ␈{Zαλ¬,80B≥+α$ "+α(0B⊃
@ε∀β+α(↓≤⊂↓␈␈zα ␈@Zεε[βg␈␈[αλβ∧≥+α( "⊃/_π␈␈λ(εβ4Bα+Zβ` B`+α≥ "/_π␈␈/_π␈␈¬hε
,xα0β⊂απ↓+INTERNAL-DUP-P,8(Bπ␈{7 λ¬+α0 "⊃
@b↓+α1↓≤$⊂↓␈␈zα Ejy⊗[β`β∧≥5Bαv[β`4Bα6(Bπ␈{ ∞λ0¬α
U¬`n⊂+α6 "+αv[β`CDRCAARCDARRD↓CDDR∪,-∀-.⊂β␈␈zαPI2∩4JαH[λ(Z
(0Hλ+α7Zβ`[αλ_(⊂(Bπ␈{7 λ¬+α= "⊃+αvZβ`[αλ7@ ↓@A  "⊃(Bπ␈{Zαλ¬,80B≥+αB "+αG Tβ
0B⊃+αF↓≤⊂↓␈␈zα ␈@ZεεZβg␈␈[αλ[αλβ∧≥+αG "⊃β¬αα/_π␈␈+αv0B%+αcZβ`[αλ7@ "⊃_λ∀
(Bπ␈{Zαλ¬,80B≥+αN "+αS0B⊃
@1 +αR↓≤⊂↓␈␈zα ␈@ZεεZβg␈␈[αλ[αλβ∧≥+αS "⊃/_0@0π␈␈4BαbZβ`Zαλ[αλ(Bπ␈{7 λ¬+αX @∧ "⊃+αvZβ`Zαλ[αλ7@ "⊃(Bπ␈{Zαλ0⊂(∀
¬,80B≥+α↑ "+αb0B⊃+αa↓≤⊂↓␈␈zα ␈@Zεε_b@0Zβg␈␈-,	β∧≥+αb "⊃/_π␈␈+αv(@⊂%&&''(())**++⊂ε␈␈zα@H4x4Hαv[ε Zλ 0Fλ+αcZβ`,86@`
∧@β+αi "⊃+αu[β`7@ "⊃(Bπ␈{Zαλ¬α¬αA(,80B≥+αn "+αr0B⊃+αq↓≤⊂↓␈␈zα ␈@Zεε[βg␈␈↓Ea[αλβ∧≥+αr "⊃/_π␈␈4BαtZβ` B`
↓B@0+αg "/_π␈␈+αv "/_π␈␈,x]a ¬@β⊂α-↓side-effectsp|,8(Bπ␈{7 λ¬+αz "+β≤α¬αA [β`1B↓+α~1B≤+α~0B$+α␈ "+β≤αA7@ "⊃(Bπ␈{Zαλ¬0B⊃+β	[¬`[∧⊂ P00D↔+β	 $.[β`ZαλZαλ,_5Bβ≤ ↓B↓ $.Zβ`,_+β≤[β`4Bβ(Bπ␈{ ∞λ0εHβ
¬an⊂+β∞FSUBR $/[β`β∧∨4Bβ∂ "⊃β∧ε⊂↓-,_+β≤[β`βα≡4Bβ∪Zβ`[αλβα.
b@β+β≤ $.[β`β∧∨4Bβ↔ $.Zβ`,_λ(`∀β+β≤ α`↓MACROEXPAND-1*βα/,85Bβ~ "⊃-,_λε¬+β⎇[αλβα./_π␈␈/_π␈␈,x¬hβ⊂αwU*U*UANDNOT↓BOUNDP⊂β⊂αCAAAR⊂	↓CAAAAR⊂
U*U*U↓CAAADRCAADR⊂
⊂	↓CAADARCADAR⊂λ↓CAADDR⊂λU*U*U⊂α⊂↓↓CADAARCDAAR⊂∩↓CADADRCDADR⊂⊃⊂↓U*U*U↓CADDARCDDAR⊂↓CADDDR⊂⊂π⊂ε⊂↓CDAAARU*U*U⊂⊂↓CDAADR⊂⊂⊂↓CDADAR⊂↓CDADDR⊂
⊂εU*U*U⊂¬↓CDDAAR⊂∂↓CDDADR⊂∞⊂¬↓CDDDAR⊂∧↓CDDDDRW*U*U⊂∧001↓≡⊂↓⊂↓⊂↓0∩≡∨↓ ⊂↓↓β⊂↓⊂↓⊂↓⊂↓~α∪#1 ↓∨⊂αα-#∪2 ↓∨⊂αα2#-3 ↓∨⊂αα3#24 ↓∨⊂αα4#55 ↓∨⊂αα5#∀6 ↓∨⊂αα6#77 ↓∨⊂αα8#∃8 ↓∨⊂αα∀#,9 ↓∨⊂αα7#-9 ↓∨⊂αα:#:; ↓∨⊂αα;#<< ↓∨⊂αα∃#.= ↓∨⊂αα=#>> ↓∨⊂αα?#∃? ↓∨⊂αα, @ ↓∨⊂αα- ∪@ ↓∨⊂αα: -A ↓∨⊂ααA 2B ↓∨⊂ααB 5C ↓∨⊂αα< ∀C ↓∨⊂ααD 7D ↓∨⊂ααE ∃E ↓∨⊂αα. ,F ↓∨⊂αα> -F ↓∨⊂ααG :G ↓∨⊂ααH <H ↓∨⊂αα∃ .I ↓∨⊂ααI >J ↓∨⊂ααJ ∃K ↓∨⊂α⊂∂⊂α␈␈xMAPCXNCONSXCONSASSQASSOC↓COPYSYMBOLU*U*UGETL↓GETCHAR↓GETCHARNLAST↓LISTIFYPNGET↓EXPLODE↓EXPLODECFLATCU*U*U↓FLATSIZE↓INTERNHUNK↓LISTARRAY↓MAKHUNK↓MAKNAMPLIST↓MEMBER↓SUBLISU*U*USUBST↓REVERSE↓APPENDBIGPEQUALFIXP↓FLOATP↓NUMBERP↓SYMBOLPU*U*UNULLODDP↓GREATERPLESSPPLUSP↓MINUSPZEROPFASLP↓PROBEFU*U*U↓NAMELIST↓NAMESTRINGPLUS↓DIFFERENCETIMES↓QUOTIENTADD1SUB1ABSU*U*U↑↑$\\↓REMAINDERGCDEXPEXPTBOOLE>U*U*U<=IFIXFIXLOGSQRTSINCOSROTU*U*ULSHFSC↓HAIPART↓HAULONG↓HUNKSIZE↓SXHASHELTVREF↓VECTORPU*U*U↓VECTOR↓MAKE-VECTOR↓VECTOR-LENGTH>=<=<$<=$=$>=$U*U*U>$α*:CHARACTER-TO-FIXNUMα*:FIXNUM-TO-CHARACTER↓FIXNUMP↓LIST-LENGTH↓CHARACTERP↓GET-PNAME↓STRING-APPEND↓STRINGPW*]p↓STRING-LENGTHK↓↔L⊂#L↓⊃⊂↓↓.⊂↓⊂α⊂↓⊂↓↓→LMMNN∨OOP"P⊃QQRRπSSTTUUVV%≥WWXXYYZ∀Z[[\≤0\]]↑↑←←ε``aaπbbccdde%&&'((e))**++f'fgghhiijjkkllmmnnoopp∧qqrrssttuuvvwwxxyyzz{{|⊂=⊂↓⊂↓␈␈x↓SSTATUS↓FEATURE|}∂⊂↓␈␈x∃~∞;¬